Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    Dim i As Long
    With Me.MultiPage1
        .Value = 0
        TextBox4.SetFocus
    End With
End Sub

Private Sub TextBox4_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    If KeyCode = 9 Then
        If Shift = 1 Then
            MultiPage1.Value = 2
            TextBox9.SetFocus
        End If
    End If
End Sub

Private Sub TextBox5_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    If KeyCode = 9 Then
        If Shift = 0 Then
            MultiPage1.Value = 1
            TextBox6.SetFocus
        End If
    End If
End Sub

Private Sub TextBox6_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    If KeyCode = 9 Then
        If Shift = 1 Then
            MultiPage1.Value = 0
            TextBox5.SetFocus
        End If
    End If
End Sub

Private Sub TextBox7_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    If KeyCode = 9 Then
        If Shift = 0 Then
            MultiPage1.Value = 2
            TextBox8.SetFocus
        End If
    End If
End Sub

Private Sub TextBox8_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    If KeyCode = 9 Then
        If Shift = 1 Then
            MultiPage1.Value = 1
            TextBox7.SetFocus
        End If
    End If
End Sub

Private Sub TextBox9_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    If KeyCode = 9 Then
        If Shift = 0 Then
            MultiPage1.Value = 0
            TextBox4.SetFocus
        End If
    End If
End Sub
